home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t9.d64 / even more menu (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  38 lines
  1. 10 REM ** PREPARED BY DAVID BRADLEY **
  2. 90 PRINT"[147]"
  3. 100 POKE53280,0:POKE53281,0:PRINT"";
  4. 110 READNM:DIMTT$(NM),TL$(NM),RN$(NM)
  5. 120 FORI=1TONM:READTT$(I),TL$(I),RN$(I):NEXTI
  6. 125 PRINT"[147]":PRINTTAB(10):PRINT"[129]****[158][205][197][206][213]/[204][207][193][196][197][210][146]***[129]*[158]":PRINT
  7. 135 PRINT"[197][206][212][197][210][160][217][207][213][210][160][195][200][207][201][195][197][160][193][206][196][160][208][210][197][211][211][160][210][197][212][213][210][206][146]"
  8. 137 PRINT:PRINT
  9. 140 FORI=1TONM
  10. 150 PRINTTAB(12)RIGHT$("0"+MID$(STR$(I),2),2)") "TT$(I)
  11. 155 NEXTI
  12. 162 REM *RIATE LINE 163 THROUGH 169.  *         *******************************
  13. 164 PRINT"[156][212][208][213][199] [205][193][217] [195]64 [196][201][211][203] ([205][197][206][213] #3)[146][158]"
  14. 170 INPUT"[217][207][213][210][160][195][200][207][201][195][197]";A$
  15. 171 IFA$="Q"THENPRINT"[147]":END
  16. 172 IFA$="L"THENPRINT"[147]":LIST
  17. 180 A=VAL(A$):IF(A<1ORA>NM)ANDA$<>CHR$(80)THENPRINT"[145]";:GOTO170
  18. 185 IFA$=CHR$(80)THENGOSUB250:PRINT"";:GOTO170
  19. 190 PRINT"[147][142]LOAD"CHR$(34)TL$(A)CHR$(34)",8,1"
  20. 200 PRINT""RN$(A)
  21. 210 POKE198,3:POKE631,19:POKE632,13:POKE633,13
  22. 220 END
  23. 250 RESTORE:READNM
  24. 252 FORI=1TONM:READTT$(I),TL$(I),RN$(I):NEXTI
  25. 270 OPEN4,4:PRINT#4,CHR$(10)CHR$(10)CHR$(10);"  ":CD$=CHR$(17)
  26. 272 FORI=1TONM:PRINT#4,CD$;CHR$(16);"15";TT$(I):NEXTI
  27. 274 PRINT#4,"   "CHR$(10)CHR$(10):CLOSE4:RETURN
  28. 900 REM
  29. 910 REM
  30. 920 REM
  31. 990 REM PROGRAM DATA
  32. 1000 DATA 5
  33. 1010 DATA"[205]ULTI-[193]ID",MULTI-AID.C,SYS12*4096
  34. 1020 DATA"[204][201][211][212] [212]O [193][211][195][201][201] [208]RINTER",LIST ASCII $C0.C,RUN
  35. 1030 DATA"[204][201][211][212] [212]O [193][211][195][201][201] [208]RINTER",LIST ASCII $9D.C,RUN
  36. 1040 DATA"[205][197][206][213]",MENU,RUN
  37. 1050 DATA"[205][207][210][197] [205][197][206][213]",MORE MENU,RUN
  38.